SetLookupList_Modified procedure

The SetLookupList_Modifiedprocedure sets the AMFSObjectPropertySet._MODIFIED property for the lookup listobject.

Note    AMFSObjectPropertySet._MODIFIED is a built-in property used for document objects. It is not normally used for other object types, but Meridian Enterprise allows us to use any property for any type of object, so there is no need to create a special property for our purpose.

Public Sub SetLookupList_Modified(dr As AMDocumentRepository, lulist As AMLookupList)
Dim llvalues As Variant
Dim propset As AMPropertySet
Dim propdefs As AMTableViewCollection
 
Set propset = dr.Environment.PropertySets.Item("AMFSObjectPropertySet")
Set propdefs = propset.PropertyDefs
llvalues = dr.LoadPropertyValues(lulist, propset)
llvalues(propdefs.Index("_MODIFIED")) = Now
dr.SavePropertyValues lulist, propset, llvalues
End Sub